home *** CD-ROM | disk | FTP | other *** search
/ Chip 2003 September / Chip_2003-09_cd2.bin / system / xteq / setup.exe / {app} / plugins / XQ WinXP Start Menu 3.xpl < prev    next >
Encoding:
XSetup plugin  |  2002-01-01  |  2.9 KB  |  95 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="9"
  3. "COUNT"="1"
  4. "UIPATH 1"="Appearance\Start menu\Windows XP\Classic Start Menu"
  5. "NAME"="Cascaded System Items"
  6. "VERSION"="3.01"
  7. "OSVERSION"="000001"
  8. "LANGUAGE"="VBScript"
  9. "TEXT 1"="nanan"
  10. "DESCRIPTION 1"="These settings control if the system items inside your Start menu should cascade or not."
  11. "DESCRIPTION 2"="Cascade means: make the items behave like menus with submenus instead of just opening the related folder. "
  12. "DESCRIPTION 3"="NOTE: These settings will have no effect if you use the new (two columns) display of the Start Menu in Windows XP."
  13. "AUTHOR"="Xteq Systems"
  14. "CONTACTURL"="http://www.xteq.com/"
  15. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  16. "COMMENT 1"="Thanks to Pierre and CptSiskoX for the settings and the idea."
  17.  
  18.  
  19.  
  20. sV1="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\CascadeMyDocuments"
  21. sV2="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\CascadeMyPictures"
  22. sV3="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\CascadeNetworkConnections"
  23. sV4="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\CascadeControlPanel"
  24. sV5="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\CascadePrinters"
  25.  
  26.  
  27. SUB Plugin_Initialize
  28.     Call SetUIElement(1,"Cascade 'My Documents' inside Start Menu")
  29.     s=RegReadValue(sV1) 
  30.     If s="YES" or IsEmpty(s) then SetUIElementEx 1,true
  31.  
  32.     Call SetUIElement(2,"Cascade 'My Pictures' inside Start Menu")
  33.     s=RegReadValue(sV2) 
  34.     If s="YES" or IsEmpty(s) then SetUIElementEx 2,true
  35.  
  36.     Call SetUIElement(3,"Cascade 'Network and Dial-Up' inside Start Menu")
  37.     s=RegReadValue(sV3) 
  38.     If s="YES" or IsEmpty(s) then SetUIElementEx 3,true
  39.  
  40.     Call SetUIElement(4,"Cascade 'Control Panel' inside Start Menu")
  41.     s=RegReadValue(sV4) 
  42.     If s="YES" or IsEmpty(s) then SetUIElementEx 4,true
  43.  
  44.     Call SetUIElement(5,"Cascade 'Printers' inside Start Menu")
  45.     s=RegReadValue(sV5) 
  46.     If s="YES" or IsEmpty(s) then SetUIElementEx 5,true
  47. END SUB
  48.  
  49. SUB Plugin_CheckData(ElementIndex)
  50. END SUB
  51.  
  52. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  53.  b=GetUIElementEx(1)
  54.  if b=true then
  55.     Call RegWriteValue(sV1,"YES",1)
  56.  else
  57.     Call RegWriteValue(sV1,"NO",1)
  58.  end if
  59.  
  60.  b=GetUIElementEx(2)
  61.  if b=true then
  62.     Call RegWriteValue(sV2,"YES",1)
  63.  else
  64.     Call RegWriteValue(sV2,"NO",1)
  65.  end if
  66.  
  67.  b=GetUIElementEx(3)
  68.  if b=true then
  69.     Call RegWriteValue(sV3,"YES",1)
  70.  else
  71.     Call RegWriteValue(sV3,"NO",1)
  72.  end if
  73.  
  74.  b=GetUIElementEx(4)
  75.  if b=true then
  76.     Call RegWriteValue(sV4,"YES",1)
  77.  else
  78.     Call RegWriteValue(sV4,"NO",1)
  79.  end if
  80.  
  81.  b=GetUIElementEx(5)
  82.  if b=true then
  83.     Call RegWriteValue(sV5,"YES",1)
  84.  else
  85.     Call RegWriteValue(sV5,"NO",1)
  86.  end if
  87.  
  88.  
  89.  'Call Logoff
  90.  Call IndicateSettingChange()
  91. END SUB
  92.  
  93. SUB Plugin_Terminate
  94. END SUB
  95.